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I 

I 

I 

I 

I 

I 

I 

I 


TERMINAL.ASM November 1984 

THIS PROGRAM WAS ORIGINALLY DEVELOPED BY THE SMALL SYSTEMS 
GROUP OF THE INSTITUTE OF COMPUTER SCIENCE, UNIVERSITY OF GUELPH, 

COPYRIGHT 1979 BY DON GENNER. 

ADAPTED TO RUN IN A MACHINE INDEPENDENT CP/M ENVIRONMENT 
BY JOHN WILSON. 

MODIFIED BY J. LAW, DEPT. OF PHYSICS, UNIVERSITY OF GUELPH, 

WITH DON GENNER'S HELP. 

EXTENSIVELY MODIFIED TO BE MORE NEARLY HOST INDEPENDENT, 

TO RECEIVE INTO A BUFFER, TO SEND BY LOGICAL DISK SECTOR, 

EXPANDED LOCAL MODE, TO WORK WITH STANDARD BDOS, AND MANY OTHERS 
BY GEORGE CORLISS, DEPT. OF MATH., MARQUETTE UNIVERSITY. 

MODIFIED FOR SLOW PRINTER BY J. GLENN BROOKSHEAR, MARQUETTE 
UNIVERSITY. tk 

MODIFIED FOR RECEIVER BUFFER OVERFLOW BY J. GLENN BROOKSHEAR 
MARQUETTE UNIVERSITY. 

Modified to disable console interrupts in order to run 
on Heath H8 and H89 machines with CP/M 2.2.03 by J. Glenn 
Brookshear, Marquette University. 

DOCUMENTATION AND INSTRUCTIONS ARE IN FILE TERMINAL.DOC 


1 

0000 

= 

BASE 

EQU 

OOOOH 




0100 

= 

USER 

EQU 

BASE+1OOH 



005C 


FCB 

EQU 

BASE+005CH 


1 

OFOO 

= 

STACK 

EQU 

USER+OEOOH 



1 000 

=: 

BUFF 

EQU 

USER+OFOOH 



OEOO 

= 

PRTBUF 

EQU 

USER+ODOOH 


1 

OEOO 


OVFLBF 

EQU 

USER+ODOOH 



0000 

= 

CPM 

EQU 

BASE 



1 

0005 

= 

BDOS 

EQU 

BASE+0005H 



0001 

— 

CTLA 

EQU 

01 H 




0002 

= 

CTLB 

EQU 

02H 



1 

0003 

= 

CTLC 

EQU 

03H 




0005 

= 

CTLE 

EQU 

05H 




0007 


BEL 

EQU 

07H 

jCTRL G 


1 

0008 

=: 

BS 

EQU 

08H 

;BACKSPACE = 

CTRL H 


0009 

= 

TAB 

EQU 

09H 

;CTRL I 



OOOA 

= 

LF 

EQU 

OAH 

JLINE FEED = 

CTRL J 

1 

OOOC 

= 

FF 

EQU 

OCH 

;FORM FEED = 

CTRL L 


OOOD 

=: 

CR 

EQU 

ODH 

jCTRL M 



001 0 

— 

CTLP 

EQU 

1 OH 



1 

0011 

= 

XON 

EQU 

11H 

JCRTL Q 



001 3 

= 

XOFF 

EQU 

13H 

; CTRL S 



001 9 


CTLY 

EQU 

1 9H 

;CTRL Y 


1 

001 A 

= 

EOD 

EQU 

1AH 

;CP/M END OF 

FILE = CTRL Z 


001B 

= 

ESC 

EQU 

1BH 

;ESCAPE 


t 

007F 

= 

DEL 

EQU 

7FH 






/ 

/ 


— 

BEGIIS 

• 

i 

01 00 



ORG 

USER 


/ 


0100 

C3B501 


JMP 

ENTER 




0103 

01 

HOSTON 

DB 

01 H 




I 
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0104 

OOOE HEAD 

DW 

PRTBUF 



0106 

OOOE TAIL 

DW 

PRTBUF 



0108 

00 BAKLOG 

DB 

00 



OOCO 

= STOPLMT 

EQU 

OCOH 



0020 

= STRTLMT 

} 

EQU 

20H 




} 

} HOST 

DEPENDENCIES: 



0109 

0D24 CRMSG 

DB 

CR,'$ ' 

;CARRIAGE RETURN MESSAGE 


0008 

= BADBS 

EQU 

BS 

;WRONG BS/DEL CHAR FOR HOST 


007F 

= GOODBS 

EQU 

DEL 

;CORRECT BS/DEL CHAR FOR HOST 


OOOD 

= HSTEOL 

EQU 

CR 

;HOST END OF LINE 


001 A 

= HSTEOD 

EQU 

EOD 

;HOST END OF FILE 


01 OB 

/ 

= HOSTBF 

EQU 

$ 

;INITIALIZED FOR SIGMA 9 


01 OB 

OD24333435HGO 

DB 

CR,'$','345' 

; START HOST 


0110 

1124333435HREC 

DB 

XON,'$' , '345 

' *, SET UP HOST TO BEGIN 

RECEIVING 

0115 

1B46132435HCLOSE 

DB 

ESC,'F',XOFF 

,'$','5' ;CLOSE HOST FILE AFTER 

REC. 

Oil A 

1B48243435HSTOP 

DB 

ESC,'H','$', 

'45' ;HOST, STOP SENDING ME 

STUFF 

01 IF 

363237342CLONMSG 

DB 

'6274,BROOKSHEARG',CR 


0130 

4548420D54 

DB 

'EHB',CR,'T 

37,0',CR,'$' 


01 3C 

3031323334 

DB 

'01234567890 

1 


01 47 

4F46460D24OFFMSG 

DB 

'OFF',CR,'$ ' 

,'678901 2345 ' 


0156 

1B480D1951HNOSND 

DB 

ESC,'H',CR,CTLY,'Q',CR,'$','890' 


0160 

= VAXMSG 

EQU 

$ 

; VAX-11 MESSAGES STARI 

HERE. 

01 60 

1124333435VHGO 

DB 

XON,'$' , '345 

’ -, START HOST 


0165 

2432333435VHREC 

DB 

'$','2345' 

; SET UP HOST TO BEGIN 

RECEIVING 

01 6A 

1A24333435VHCLOSE 

DB 

EOD,'$','345 

' ;CLOSE HOST FILE AFTER 

REC. 

016F 

1324333435VHSTOP 

DB 

XOFF,'$','345' ;HOST, STOP SENDING ME 

STUFF 

0174 

3632373442VLONMSG 

DB 

'6274BROOKSHE',CR,'EHB',CR 


0185 

5345542054 

DB 

'SET TERM/HOSTSYNC' ,CR,'$ ' 


0198 

37383930 

DB 

'7890' 



01 9C 

4C4F47 4F55VOFFMSG 

DB 

'LOGOUT',CR, 

'$','9012345' 


01AB 

1303243435VHNOSND 

7 

DB 

XOFF,CTLC,'$ 

' , '4567890' 



} 

PROGRAM LAYOUT 




} 

MAIN 

PROGRAM 




7 

I/O 

ROUTINES CONIO, 

PRNT, SOUT 



7 

SPECIAL CONTROL CODE 

HANDLERS 



7 


SWCHPT, CRTOUT, 

TRADE, LOCAL 



7 

SUBROUTINES FOR LOCAL 



7 

DSKDIR, HELP, LOGON, OFF, PRINTR, RECEIVE, SEND 



1 

7 

CP/M 

BDOS CALLS 



01B5 

r 

AF ENTER 

XRA 

A 

jDisable interrupts 


01B6 

D3E9 

OUT 

350Q+1 

; from H8 or H89 console 


01B8 

210000 

LXI 

H,0 

7 


OIBB 

39 

DAD 

SP 



OIBC 

22FE0F 

SHLD STACK+254 



01BF 

31FE0F 

! 

LXI 

SP,STACK+254 




7 

MVI 

A, 83H 

; THIS BLOCK USED TO INITIALIZE 

MODEM 


7 

OUT 

330Q+3 

;PORT ON HEATH H8/H89 MACHINES 

TO 


7 

MVI 

A, 3 

;TO 300 BAUD, 8 DATA DITS, NO PARITY, 
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OUT 330Q+4 ;AND 2 STOP BITS. 

MVI A,80H 

OUT 330Q 

MVI A,1 

OUT 330Q+1 

MVI A,3 

OUT 330Q+3 

XRA A 

OUT 330Q+1 


01C2 

C3CC01 

/ 

JMP 

TERMINAL 

01C5 

2AFE0F 

EXIT 

LHLD 

STACK+254 

01C8 

F9 


SPHL 


01C9 

C30000 


JMP 

CPM 


BEGIN MAIN PROGRAM 


TERMINAL: 


01CC 

11DB01 


LXI 

D,VERMSG 



01CF 

CD700D 


CALL 

STRINGF 



01D2 

11FF01 


LXI 

D,TMESS 



01D5 

CD700D 


CALL 

STRINGF 



01D8 

C31502 


JMP 

TERM2 



OIDB 

0D0A544552VERMSG 

DB 

CR,LF,'TERMINAL PROGRAM 

VER. 2.2.03',CR 

01FF 

0D0A544552TMESS 

DB 

CR,LF,'TERMINAL MODE',CR 

,LF,LF,'> $' 

021 5 

CD9702 

/ 

TERM2 

CALL 

CONIO ; 

ANYTHING FROM TERMINAL? 

021 8 

CA5002 


JZ 

SGET ; 

NO - MOVE ON 


021B 

5F 


MOV 

E,A ; 

YES - LOAD E 




1 

; PROCESS SPECIAL CONTROL CHARACTERS 




/ 

7 

"P 

TOGGLE PRINTER ON/OFF 




7 

"A 

ENTER LOCAL MODE 




7 

"B 

SET BELL 

TO RING ON NEXT 

HOST CHAR 



7 

"C 

RETURN TO 

cp/m 




7 

"E 

TOGGLE CRT ECHO ON/OFF 




7 

ESC 

FORCE SEND NEXT CHAR TO 

HOST 

021C 

FE10CA1A03 

7 

CPI 

CTLP 







JZ 

SWCHPT 

; IF "P 

0221 

FE01 


CPI 

CTLA 



0223 

CA4403 


JZ 

LOCAL 

H 

> 

> 


0226 

FE02 


CPI 

CTLB 



0228 

CA2803 


JZ 

SWBEL 

; IS "b 


022B 

FE03 


CPI 

CTLC 



022D 

CAC501 


JZ 

EXIT 

; IF "C 


0230 

FE05 


CPI 

CTLE 



0232 

CA3103 


JZ 

SWECHO 

; IF "e 


0235 

FE1B 


CPI 

ESC 



0237 

CA3D03 


JZ 

FORSND 

: IF ESCAPE 

023A 

FE08 


CPI 

BADBS 



023C 

CAEF03 


JZ 

TRADE 

; IF WRONG BS/DEL FOR HOST 

023F 

D5 

SPUT 

PUSH 

D 



0240 

CD4E0D 


CALL 

PUNOUTF 

;SEND TO 

HOST 
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0243 D1 


POP 

D 



1 

0244 3A3C03 


LDA 

ECHO 


;SHOULD CHARACTERS BE SENT TO CRT? 


0247 FEOO 


CPI 

0 


;0 - YES, 1 - NO 


0249 C25002 


JNZ 

SGET 



1 

024C 7B 


MOV 

A,E 




024D CD9E02 

DPUTB 

CALL 

PRNT 


;SEND TO CONSOLE 


0250 CD350D 

SGET 

CALL 

RDRINPF 


;ANYTHING FROM HOST? 

1 

0253 CA6A02 


JZ 

CKPRT 


;NO. CHECK PRINT BUFFER 


0256 CD9E02 


CALL 

PRNT 


;ECHO IT 


0259 3A3003 


LDA 

BELWAK 


;IS BELL SWITCH SET? 

I 

025C FEOO 


CPI 

0 




025E CA6A02 


JZ 

CKPRT 


;IF NOT SET 


0261 1E07 


MV I 

E,BEL 


;RING BELL 

1 

0263 CD2A0D 


CALL 

CONOUTF 




0266 AF 


XRA 

A 


;RESET BELL SWITCH 


0267 323003 


STA 

BELWAK 



♦ 

026A 3A0801 

CKPRT 

LDA 

BAKLOG 


;ANYTHING IN PRINT BUFFER? 


026D FEOO 


CPI 

00 




026F CA1502 


JZ 

TERM2 


;NO. TRY TERMINAL 

♦ 

0272 CD630D 


CALL 

PRTSTAT 


;PRINTER BUSY? 


0275 FEOO 


CPI 

00 




0277 CA1502 


JZ 

TERM2 


;YES. TRY TERMINAL 

1 

027A 2A0401 


LHLD 

HEAD 


;SEND CHARACTER TO PRINTER 


027D 5E 


MOV 

E,M 


;AND SHIFT HEAD POINTER. 


027E 2C 


INR 

L 



1 

027F 220401 


SHLD 

HEAD 




0282 CD5E0D 


CALL 

LSTOUTF 




0285 3A0801 


LDA 

BAKLOG 


;IF BACKLOG HAS DROPPED 

1 

0288 3D 


DCR 

A 


;TO START LIMIT THEN TELL 


0289 320801 


STA 

BAKLOG 


;HOST TO START SENDING AGAIN. 


028C FE20 


CPI 

STRTLMT 



1 

028E C21502 


JNZ 

TERM2 




0291 CD0803 


CALL 

STRTHST 



1 

0294 C31502 


JMP 

TERM2 


;CHECK ON TERMINAL 



/ 

f 

/ 

— 


— 

END OF MAIN PROGRAM 

1 

0297 1EFFCD680DCONIO 

MV I 

E,0FFH 

;DIRECT CONSOLE INPUT 







CALL DIRCONF :(A) 

1 

029C B7 


ORA 

A 

;FORCE FLAG 


029D C9 


RET 




1 

029E E5 

} 

PRNT 

PUSH 

H 

;PRINT CHAR (A) AT CONSOLE 


029F D5 


PUSH 

D 




02A0 5F 


MOV 

E,A 



1 

02A1 FEOD 


CPI 

HSTEOL 

;END 

OF LINE? 


02A3 CAB902 


JZ 

PRNT2 




02A6 D5 


PUSH 

D 



1 

02A7 CD2A0D 


CALL 

CONOUTF 




02AA D1 


POP 

D 




02AB 3A2703 


LDA 

AUXON 



1 

02AE FEOO 


CPI 

0 




02B0 C2B602 


JNZ 

PRNT1 

;AND 

PERHAPS AT THE PRINTER 


02B3 CDE002 


CALL 

LIST 



1 

02B6 D1 

PRNT1 

POP 

D 




02B7 El 


POP 

H 



1 

02B8 C9 


RET 





02B9 3A2703 

PRNT2 

LDA 

AUXON 




02BC FEOO 


CPI 

0 




I 


CHAR OR 00 IF NO CHAR 
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02BE C2D402 

JNZ 

PRNT3 


f 

02C1 11DD02 

LXI 

D,CRLF 

1 


02C4 CD700D 

CALL 

STRINGF 



02C7 1E0D 

MV I 

E,CR 


1 

02C9 CDE002 

CALL 

LIST 

1 


02CC lEOA 

MVI 

E,LF 



02CE CDE002 

CALL 

LIST 


1 

02D1 C3B602 

JMP 

PRNT1 

1 


02D4 11DD02 

PRNT3 LXI 

D, CRLF 



02D7 CD700D 

CALL 

STRINGF 


1 

02DA C3B602 

JMP 

PRNT1 

1 


02DD 0D0A24 

CRLF DB 

CR,LF,'$' 

i 


r 

} PLACE CONTENTS OF E REGISTER IN PRINT BUFFER. > 



; IF BACKLOG 

IS THEN COH, TELL HOST TO WAIT. 

1 


; CAUTION*** 

HOST WAIT 

ROUTINE USES E REGISTER. » 


02E0 2A0601 

t 

LIST LHLD 

TAIL 


1 

02E3 73 

MOV 

M,E 

1 


02E4 2C 

INR 

L 



02E5 220601 

SHLD 

TAIL 


1 

02E8 3A0801 

LDA 

BAKLOG 

1 


02EB 3C 

INR 

A 



02EC 320801 

STA 

BAKLOG 


1 

02EF FECO 

CPI 

STOPLMT 

1 


02F1 CO 

RNZ 




02F2 CDF602 

CALL 

STOPHST 


1 

02F5 C9 

RET 


1 


02F6 3A0301 

} 

STOPHST LDA 

HOSTON 

;IS HOST ALREADY STOPPED? 

1 

02F9 FEOO 

CPI 

00 

1 


02FB C8111A01 

RZ 


;YES. RETURN 





LXI D,HSTOP ;NO. THEN STOP IT. 

1 

02FF CD670B 

CALL 

MSGHOST 

1 


0302 3E00 

MVI 

A,00 



0304 320301 

STA 

HOSTON 


i 

0307 C9 

RET 


1 


0308 3A0301 

} 

STRTHST LDA 

HOSTON 

;IS HOST ALREADY STARTED? 

1 

030B FEOO 

CPI 

00 

1 


030D CO 

RNZ 


;YES. RETURN 


030E 110B01 

LXI 

D,HGO 

;NO. THEN START IT. 

1 

0311 CD670B 

CALL 

MSGHOST 

1 


031 4 3E01 

MVI 

A,01 



031 6 320301 

STA 

HOSTON 


♦ 

0319 C9 

RET 

} 


1 

1 


} 

- SPECIAL 

CONTROL CODE HANDLERS > 


031A 3A2703 

SWCHPT LDA 

AUXON 


1 

031D 47 

MOV 

B.A 

1 


031E 3E01 

MVI 

A,1 



0320 90 

SUB 

B 


1 

0321 322703 

STA 

AUXON 

1 


0324 C35002 

JMP 

SGET 


1 

0327 01 

} 

AUXON DB 

1 

1 


0328 3E01 

7 

SWBEL MVI 

A,1 

;SET BELL SWITCH 


I I 
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032A 

323003 


STA 

BELWAK 



1 

032D 

C35002 


JMP 

SGET 


f 


0330 

00 

BELWAR 

DB 

0 


1 

I 

0331 

3A3C03 

7 

SWECHO 

LDA 

ECHO 



0334 

EE01 


XRI 

01H 



1 

0336 

323C03 


STA 

ECHO 


♦ 


0339 

C35002 


JMP 

SGET 



1 

033C 

01 

7 

ECHO 

DB 

1 ;1 

- NO ECHO, 0 - ECHO TO CRT 

1 


033D 

CD200D 

FORSND 

CALL 

CONINPF 

;FORCE SEND NEXT CHAR TO HOST 


1 

0340 

5F 


MOV 

E,A 

I 


0341 

C33F02 


JMP 

SPUT 



1 

0344 

11B303 

7 

LOCAL 

LXI 

D,LMESS 

;DISPLAY 'LOCAL MODE' 

1 


0347 

CD700D 


CALL 

STRINGF 



034A 

CD200D 


CALL 

CONINPF 



1 

034D 

FEOD 


CPI 

CR 


1 


034F 

CAF703 


JZ 

HELP 




0352 

FE03 


CPI 

CTLC 



1 

0354 

CAC501 


JZ 

EXIT 


1 


0357 

E65F 


ANI 

5FH 

;CONVERT TO UPPER CASE 



0359 

D641 


SUI 

'a' 

;SET UP FOR JUMP TABLE 

1 

1 

035B 

FAAA03 


JM 

NOTYET 



035E 

FE1AF2AA03 


CPI 

1 AH 



1 





JP 

NOTYET ;IF > ASCII 'Z' 

1 

i 

0363 

217603 


LXI 

H,IFA 



0366 

5F 


MOV 

E, A 

;LB OF INDEX 


1 

0367 

1600 


MVI 

D,0 

;HB OF INDEX 

t 

0369 

19 


DAD 

D 

;ADD INDEX TO BASE OF JUMP TABLE 


036A 

19 


DAD 

D 

; TWICE BECAUSE 2 BYTES/WORD 


1 

036B 

23 


INX 

H 

; ADDRESS HIGH BYTE FIRST 

1 

036C 

56 


MOV 

D,M 

;HB OF JUMP ADDRESS 



036D 

2B 


DCX 

H 



1 

036E 

5E 


MOV 

E,M 

;LB OF JUMP ADDRESS 

1 


036F 

EB 


XCHG 


;JUMP ADDRESS TO HL 



0370 

227403 


SHLD 

DUMMY+1 

;FILL IN JUMP ADDRESS 


1 

0373 

C37303 

DUMMY 

JMP 

DUMMY 

•,JUMP ADDRESS IS SUPPLIED ABOVE 

1 




• TABLE 

f 

OF JUMP ADDRESSES: 



1 




A B 

CD E F G 

1 


0376 

AA03DF07C5IFA 

DW 

NOTYET,CHGBDR,EXIT,DSKDIR,TERMINAL,NOTYET,NOTYET 





1 


H I 

J K L M NO 


1 

0384 

F703AA03AA 


DW 

HELP,NOTYET 

,NOTYET,NOTYET,LOGON,NOTYET,NOTYET,OFF 

1 




7 


P Q 

R S T U V 



0394 

CE08F705D9 


DW 

PRINTR,CHGBUF,RECEIVE,SEND,TERMINAL,NOTYET,VAXHST 


1 



7 


W X 

Y Z 

1 


03A2 

B00AAA03AA 

7 

DW 

WAIT,NOTYET 

, NOTYET,NOTYET 


1 

0 3AA 

11C503 

NOTYET 

LXI 

D,YETMSG 




03 AD 

CD700D 


CALL 

STRINGF 



1 

03B0 

C34403 


JMP 

LOCAL 


1 


03B3 

/ 

0D0A4C4F43LMESS 

DB 

CR,LF,'LOCAL MODE > $' 


1 

03C5 

070D0A4E4FYETMSG 

DB 

BEL,CR,LF,' 

NOT IMPLEMENTED YET.$' 

1 


0 3DD 

0D0A46494CFMESS 

DB 

CR,LF,'FILE 

NAME? > $' 



/ 

If I 
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i 


03EF 1E7F 
03F1 C33F02 


TRADE MVI 

JMP 


E,GOODES 
SPUT 


; SUBSTITUTE GOOD BS/DEL CHAR 
;FOR A BAD ONE 


I 


SUBROUTINES FOR LOCAL MODE 


1 

03F4 

C3AA03 DSKDIR 

JMP 

NOTYET 



1 


03F7 

110004 HELP 

LXI 

D,HLPMSG 




1 

03FA 

CD700D 

CALL 

STRINGF 



1 


03FD 

C34403 

JMP 

LOCAL 



1 

0400 

0C0A0A2020HLPMSG 

DB 

FF,LF,LF, ' 

OPTIONS AVAILABLE:',CR,LF,LF 


1 


041B 

0942094348 

DB 

TAB,'B',TAB, 

'CHANGE BAUD RATE (E)',CR,LF 



0434 

0943094558 

DB 

TAB,'C,TAB, 

'EXIT TO CP/M (E)',CR,LF 



• 

0449 

0944094449 

DB 

TAB,'D',TAB, 

'DISK DIRECTORY (L)',CR,LF 


1 


0460 

0945094558 

DB 

TAB,'E',TAB, 

'EXIT TO TERMINAL MODE (E)',CR,LF 




047E 

0948094845 

DB 

TAB,'H',TAB, 

'HELP (L)',CR,LF 



1 

048B 

094C095345 

DB 

TAB,'L',TAB, 

'SEND LOGON TO HOST (E)',CR,LF 


1 


04A6 

094F095345 

DB 

TAB,'0',TAB, 

'SEND LOGOFF TO HOST (E)',CR,LF 




04C2 

095009544F 

DB 

TAB,'P',TAB, 

'TOGGLE PRINTER ON/OFF (L)',CR,LF 


TAB, 'Q' ,TAB, 'CHANGE RECEIVI^’f 

t 

0505 

0952095245 

DB 

TAB,'R’,TAB, 

'RECEIVE FILE FROM HOST (L)',CR,LF 

DB 



0524 

0953095345 

DB 

TAB,'S',TAB, 

'SEND FILE TO HOST (L)',CR,LF 



1 

053E 

0954095445 

DB 

TAB,'T',TAB, 

'TERMINAL MODE {E)',CR,LF 


1 


0554 

0956094348 

DB 

TAB,'V',TAB, 

'CHANGE TO VAX-11 MODE (E)',CR,LF 




0572 

0957095741 

DB 

TAB,'W,TAB, 

'WAIT - SET SENDING DELAY (L)',CR,LF 



1 

0593 

0A09284C29 

DB 

LF,TAB,'(L) 

COMMANDS RETURN TO LOCAL MODE',CR,LF 


1 


05B8 

0928452920 

DB 

TAB,'(E) COMMANDS EXIT LOCAL MODE',CR,LF,LF,'$' 



> 

05D9 

HDD 02 LOGON 

LXI 

D,CRLF 



I 


05DC 

CD700D 

CALL 

STRINGF 





05DF 

111F01 

LXI 

D,LONMSG 




1 

05E2 

CD670B 

CALL 

MSGHOST 



1 


05E5 

C31502 

JMP 

TERM2 




i 

05E8 

11DD02 OFF 

LXI 

D,CRLF 



.1 


05EB 

CD700D 

CALL 

STRINGF 





05EE 

1 1 4701 

LXI 

D,OFFMSG 




1 

05F1 

CD670B 

CALL 

MSGHOST 





05F4 

C31502 

JMP 

TERM2 




♦ 

05F7 

113706 CHGBUF 

LXI 

D,CHG1 



1 


05FA 

CD700D 

CALL 

STRINGF 




1 

05FD 

CD9702 GETOPT 

CALL 

CON 10 




0600 

CAFD05 

JZ 

GETOPT 



1 


0603 

FE41 

CPI 

41 H 





0605 

CA1B06 

JZ 

GOTA 



1 

1 

0608 

FE42 

CPI 

42H 




060A 

CA2906 

JZ 

GOTB 





060D 

3E00 

MVI 

A, 00 




1 

060F 

321D0D 

STA 

BFSIZE 



1 


061 2 

11C807 

LXI 

D,CMSG 





061 5 

CD700D 

CALL 

STRINGF 




1 

061 8 

C31502 

JMP 

TERM2 



1 


061B 

3E01 GOTA 

MVI 

A,01 





061D 

321D0D 

STA 

BFSIZE 




1 

0620 

119A07 

LXI 

D,AMSG 



1 


0623 

CD700D 

CALL 

STRINGF 





0626 

C31502 

JMP 

TERM2 




1 

0629 

3E80 GOTB 

MVI 

A,80H 



1 
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1 

062B 321D0D 

STA 

BFSIZE 




062E 116107 

LXI 

D,BMSG 




0631 CD700D 

CALL 

STRINGF 



1 

0634 C31502 

JMP 

TERM2 


# 


0637 0D0A0A5345CHG1 

DB 

CR,LF,LF,'SELECT THE SIZE OF THE RECEIVING 



065A 2042554646 

DB 

' BUFFER BY TYPING THE LETTER REPRESENTING',CR,LF 


I 

0685 594F555220 

DB 

'YOUR CHOICE IN THE FOLLOWING TABLECR,LF,LF,LF 

1 


06AC 53454C4543 

DB 

'SELECTION 

BUFFER SIZE FOR SYSTEMS ,CR,Lt 



06DD 2020202020 

DB 

1 

(IN CP/M SECTORS) WITH',CR,LF,LF 


1 

070B 2020204120 

DB 

' A 

1 32K RAM',CR,LF 

1 


073A 2020204220 

DB 

' B 

128 48K ram',CR,LF 



0769 2020204320 

DB 

' C (DEFAULT) 256 64K RAM ,CK,Lt 


1 

0798 0A24 

DB 

LF , ' $ ' 


1 


079A 4F5054494FAMSG 

DB 

'OPTION A 

SELECTED.',CR,LF,'$' 



07B1 4F5054494FBMSG 

DB 

'OPTION B 

SELECTED.',CR,LF,'$' 


1 




CMSG DB 'OPTION C SELECTED.',CR,LF, $ 

I 


07DF 112108 CHGBDR 

LXI 

D,BDMSG1 



1 

07E2 CD700D 

CALL 

STRINGF 


• 


07E5 CD200D 

CALL 

CONINPF 




07E8 E65F 

AN I 

5FH 

; FORCE UPPER CASE 


1 

07EA FE42 

CPI 

'B' 


i 


07EC CA0808 

JZ 

BDR1 2 




07EF 116908 

LXI 

D,BDMSG2 



1 

07F2 CD700D 

CALL 

STRINGF 


1 


07F5 3E83 

MVI 

A,83H 




07F7 D3DB 

OUT 

330Q+3 



1 

07F9 3E80 

MVI 

A,80H 


1 


07FB D3D8 

OUT 

330Q 




07FD 3E01 

MVI 

A,01H 



1 

07FF D3D9 

OUT 

330Q+1 


1 


0801 3E03 

MVI 

A,03H 




0803 D3DB 

OUT 

330Q+3 



1 

0805 C31502 

JMP 

TERM2 


1 


0808 118308 BDR12 

LXI 

D,BDMSG3 




080B CD700D 

CALL 

STRINGF 



1 

080E 3E83 

MVI 

A,83H 


1 


0810 D3DB 

OUT 

330Q+3 




081 2 3E60 

MVI 

A,60H 



1 

0814 D3D8 

OUT 

330Q 


1 


0816 3E00 

MVI 

A,00H 




0818 D3D9 

OUT 

330Q+1 



1 

081A 3E03 

MVI 

A,03H 


1 


081C D3DB 

OUT 

330Q+3 



1 

081E C31502 

JMP 

TERM 2 




0821 0D0A0A5365BDMSG1 

DB 

CR,LF,LF,' 

Select baud rate by typing' 



083E 0D0A274127 

DB 

CR,LF,' ' ' A 

'' for 300 baud or',CR,LF 


♦ 

0855 2742272066 

DB 

'''B'' for 

1200 baud',CR,LF,'$' 

'1 


0869 0D0A0A4261BDMSG2 

DB 

CR,LF,LF,' 

Baud rate set at 300',CR,LF,'$' 



0883 0D0A0A4275BDMSG3 

DB 

CR , LF , LF , ' 

Buad rate set at 1200',CR,LF,' $' 



089E 0655 VAXHST 

MVI 

B,55H 

;MOVE VAXMSG BLOCK TO 



08A0 21 6001 

LXI 

H,VAXMSG 

jHOSTBF BLOCK AND THEN 


1 

08A3 110B01 

LXI 

D,HOSTBF 

;GO TO TERM2. 



08A6 7E MOVBYT 

MOV 

A,M 




08A7 EB 

XCHG 




1 

08A8 77 

MOV 

M,A 




08A9 05 

DCR 

B 




08AA FEOO 

CPI 

00 



1 

08AC CAB508 

JZ 

VAXH1 


1 
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1 

08AF 13 


INX 

D 


1 


08B0 23 


INX 

H 




08B1 EB 


XCHG 




1 

08B2 C3A608 


JMP 

MOVBYT 


1 


08B5 11BE08 

VAXH1 

LXI 

D,VAXMOD 

; INDICATE MODE IS VAX 



08B8 CD700D 


CALL 

STRINGF 



1 

08BB C31502 


JMP 

TERM2 


1 


08BE 56 41 582D31VAXMOD 

DB 

'VAX-11 MODE.' 

,CR,LF,LF,'$' 



08CE 3A2703 






1 


PRINTR 


LDA AUXON 

*,TOGGLE PRINTER OFF/ON 

1 


08D1 EE01 


XRI 

01H 




08D3 322703 


STA 

AUXON 



1 

08D6 C34403 

• 

f 

JMP 

LOCAL 


1 

1 


; RECEIVE A 

FILE FROM HOST 


1 



7 

ESTABLISH STATE 





1 

LOOP 

FOR EACH CHAR 



1 


! 

CHECK CONSOLE 


1 



7 


ESC - 

-> 




/ 

GET CHAR FROM HOST 



I 


7 


NONE - 

-> 

1 



t 


END OF FILE - 

- > 




/ 

WRITE CHAR TO MEMORY 


1 


/ 


MANAGE BUFFER 


1 



/ 


COUNT CHARS IN 

SECTOR 




/ 


WHEN NECESSARY 

, WRITE SECTOR 


1 


i 


HOST WAIT 


1 



$ 


DISK WRITE 





• 

i 


HOST CONTINUE 


1 


7 

CLOSE FILE 




08D9 3E01 

RECEIVE 

MV I 

A,01 

;TURN PRINTER OFF 


1 

08DB 322703 


STA 

AUXON 


1 


08DE CDDCOA 


CALL 

GETFN 

;GET FILE NAME 



08E1 115C00 


LXI 

D,FCB 



1 

08E4 CD860D 


CALL 

OPENFIF 


1 


08E7 FEFF 


CPI 

OFFH 




08E9 CAF808 


JZ 

REC2 

;IF FILE IS NEW 


♦ 

08EC 110C09 


LXI 

D,EXISTM 

;FILE EXISTS. 

1 


08EF CD700D 


CALL 

STRINGF 

;WARN 



08F2 115C00 


LXI 

D,FCB 

;AND DELETE OLD ONE 


1 

08F5 CD900D 


CALL 

DELETEF 


1 


08F8 115C00 

REC2 

LXI 

D,FCB 




08FB CD9F0D 


CALL 

MAKEFIF 



1 

08FE FEFF 


CPI 

OFFH 


I 


0900 C24D09 


JNZ 

REC7 

;IF MAKE WAS SUCCESSFUL 



0903 112709 


LXI 

D,FULLMSG 



1 

0906 CD700D 


CALL 

STRINGF 


1 


0909 C34403 


JMP 

LOCAL 



1 

090C 070D0A4558EXISTM 

DB 

BEL,CR,LF,'EXISTING FILE DELETED',CR,LF,'$' 

1 


0927 070D0A4449FULLMSG 

DB 

BEL,CR,LF,'DIRECTORY FULL. ACTION CANCELLED.$' 


1 

094D 110901 

REC7 

LXI 

D,CRMSG 


1 


0950 CD670B 


CALL 

MSGHOST 




0953 CD350D 

REC4 

CALL 

RDRINPF ;WAIT 

FOR ECHO OF CR SENT TO START TRANSMISSION 


1 

0956 FEOD 


CPI 

CR 


1 


0958 C25309 


JNZ 

REC4 




095B CD9702 

REC3 

CALL 

CON 10 

;LOOP FOR EACH CHAR 


1 

095E FEIA 


CPI 

EOD 

;TO TERMINATE TRANSMISSION 

1 
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I 


1 

0960 

CA8B09 


JZ 

RECEOD 


;IF ESCAPE, ELSE IGNOR 


i 


0963 

CD350D 


CALL 

RDRINPF 


;WAIT FOR CHAR 




0966 

CA5B09FE1A 


JZ 

REC3 


;IF NOTHING WAS RECEIVED 



1 








CPI HSTEOD 

1 


096B 

CA8B09 


JZ 

RECEOD 


;IF END OF FILE 




096E 

F5 


PUSH 

PSW 





♦ 

096F 

CD9E02 


CALL 

PRNT 


;ECHO TO CONSOL 


I 


0972 

FI 


POP 

PSW 






0973 

F5 


PUSH 

PSW 





1 

0974 

CD9C0B 


CALL 

WRTMEMF 




1 


0977 

C24403 


JNZ 

LOCAL 


;IF WRITE WAS NOT SUCCESSFUL 




097A 

FI 


POP 

PSW 





1 

097B 

FEOD 


CPI 

CR 




1 


097D 

C25B09 


JNZ 

REC3 






0980 

3E0A 


MVI 

A,LF 





1 

0982 

CD9C0B 


CALL 

WRTMEMF 




1 


0985 

C24403 


JNZ 

LOCAL 





i 

0988 

C35B09 


JMP 

REC3 




i 


098B 

1 1 5601 

t 

RECEOD 

LXI 

D,HNOSND 


;END OF TRANSMISSION. CLOSE 

FILES 

f 


098E 

CD670B 


CALL 

MSGHOST 





1 

0991 

3E1 A 


MVI 

A, EOD 


;CP/M END OF FILE 


1 


0993 

CD9C0B 


CALL 

WRTMEMF 





1 

0996 

C34403 

7 

JMP 

LOCAL 




1 




7 

; SEND 

A FILE 

FROM TERMINAL 

TO 

HOST 



1 



7 

ESTABLISH STATE 




1 




• 

/ 

OPEN FILE 








7 

SEND START SIGNAL 





1 



• 

/ 

LOOP FOR EACH LOGICAL 

SECTOR (128 BYTES) 


f 




7 

READ SECTOR FROM 

DISK 






• 

f 

LOOP FOR EACH OF 

128 

CHARS 



1 



• 

/ 


GET CHAR FROM 

MEMORY 


1 




7 


LF? - 

- > 







7 


CR? - 

-> 




1 



7 


TAB? - 

- > 



1 




7 


EOD? - 

-> 







7 


INVALID? - 

- > 




♦ 



t 


SEND CHAR TO 

HOST 


1 




! 


IF RESPONSE, 

THEN XOFF? - > 






t 


ELSE 

ECHO RESPONSE 



1 



/ 


CHECK CONSOLE 




1 




7 


ESC - 

— 

-> 



1 



7 

EOD OR 

ESC: CLOSE FILES 





0999 

3E01 

SEND 

MVI 

A,01 


;TURN PRINTER OFF 




099B 

322703 


STA 

AUXON 





1 

099E 

CDDCOA 


CALL 

GETFN 




1 


09A1 

115C00 


LXI 

D,FCB 






09A4 

CD860D 


CALL 

OPENFIF 


;OPEN SOURCE FILE 



1 

09A7 

FEFF 


CPI 

OFFH 






09A9 

CA930A 


JZ 

SENDNOT 


;IF FILE NOT FOUND 




09 AC 

111001 


LXI 

D, HREC 


;SET HOST TO RECEIVE A FILE 



1 

0 9AF 

CD670B 


CALL 

MSGHOST 






09B2 

110010 

SENDL1 

LXI 

D,BUFF 


;LOOP FOR EACH SECTOR 



1 

09B5 

D5CDA40D 


PUSH 

D 


;BUFF REAPPEARS IN HL 


1 








CALL 

SETDMAF 



09B9 

115C00 


LXI 

D,FCB 





1 

09BC 

CD950D 


CALL 

READSQF 




1 


0 9BF 

B7 


ORA 

A 













TERMINAL.PRN 


09C0 

CAC809 


JZ 

SENDL7 

09C3 

C5 


PUSH 

B 

09C4 

C5 


PUSH 

B 

09C5 

C3880A 


JMP 

SENDEOD 

09C8 

0681 

/ 

SENDL7 

MVI 

B,1 29 

0 9CA 

C5 


PUSH 

B 

0 9CB 

Cl 

/ 

SENDL2 

POP 

B 

0 9CC 

El 


POP 

H 

09CD 

05 


DCR 

B 

0 9CE 

AF 


XRA 

A 

09CF 

80 


ADD 

B 

09D0 

CAB209 


JZ 

SENDL1 

09D3 

7E 


MOV 

A,M 

09D4 

23 


INX 

H 

09D5 

E5 


PUSH 

H 

09D6 

C5 


PUSH 

B 

09D7 

E67F 


AN I 

7FH 

09D9 

5F 


MOV 

E,A 

09DA 

FEOA 


CPI 

LF 

09DC 

CA850A 


JZ 

SENDLF 

09DF 

FEOD 


CPI 

CR 

09E1 

CAF309 


JZ 

SENDL3 

09E4 

FE09 


CPI 

TAB 

09E6 

CAFD09 


JZ 

SENDTAB 

09E9 

FE1 A 


CPI 

EOD 

09EB 

CA880A 


JZ 

SENDEOD 

09EE 

FE20 


CPI 

20H 

09F0 

FAOOOA 


JM 

SENDINV 

09F3 

CD280A 

SENDL3 

CALL 

SENDCHR 

09F6 

B7 


ORA 

A 

09F7 

CA880A 


JZ 

SENDEOD 

09FA 

C3CB09 


JMP 

SENDL2 

09FD 

C3F309 

7 

SENDTAB 

JMP 

SENDL3 

OAOO 

11090A 

SENDINV 

LX I 

D,INVMSG 

0A03 

CD700D 


CALL 

STRINGF 

0A06 

C3CB09 


JMP 

SENDL2 

0A09 

/ 

070D0A494EINVMSG 

DB 

BEL,CR,LF 

0A28 

3A3C03 

/ 

SENDCHR 

LDA 

ECHO 

0A2B 

FEOO 


CPI 

0 

0A2D 

C2340A 


JNZ 

SENDL8 

0A30 

7B 


MOV 

A,E 

0A31 

CD9E02 


CALL 

PRNT 

0A34 

CD4E0D 

SENDL8 

CALL 

PUNOUTF 

0A37 

3ADA0A 


LDA 

NDELAY 

0A3A 

B7CA41OA 


ORA 

A 

JZ 

0A3E 

CD860B 


CALL 

DELAYF 

0A41 

CD350D 

SENDL4 

CALL 

RDRINPF 

0A44 

B7 


ORA 

A 

0A45 

CA530A 


JZ 

CKPUN 

0A48 

FE1 3 


CPI 

XOFF 

0A4A 

CA670A 


JZ 

SENDOFF 

0A4D 

CD9E02 


CALL 

PRNT 

0A50 

C341OA 


JMP 

SENDL4 

0A53 

CD590D 

CKPUN 

CALL 

PUNSTAT 
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;IF NOT END OF FILE 
;FILL STACK TO BE CLEARED 
;IN SENDOED 

;INITIALIZE LOOP COUNTER 

;LOOP FOR EACH CHAR 

;DONE WITH THIS SECTOR? 

;GET NEXT SECTOR 
;GET CHAR FROM MEMORY 

;GUARANTEE VALID ASCII CHAR 


;< 2OH ARE CONTROL CODES 
;RETURNS (A) = 0 IF EOD. 

;GET NEXT CHAR 

;EXPAND TABS LATER 

;INVALID CHAR IN FILE 
;WARN AND IGNOR 

, 'INVALID CHARACTER IN FILE' ,CR,LF,'$' 

;IF NO ECHO TO CONSOLE BEFORE SEND 

;SEND CHAR (E) TO HOST 
;NUMBER OF DELAY LOOPS 

SENDL4 ;IF NO DELAY 

;RESPONSE? 

;IF NOTHING RECEIVED 
;XOFF MEANS WE MUST WAIT 

;ECHO IT TO CONSOL 
;MORE RESPONSE? 

;KEEP WATCHING INPUT FROM 
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0A56 

FEOO 


CPI 

00 


;HOST UNTIL PUN: PORT 

0A58 

CA41OA 


JZ 

SENDL4 


;IS CLEAR. 

0A5B 

CD9702 

SENDL5 

CALL 

CONIO 


;CHECK FOR CONSOL INPUT 

0A5E 

D61 A 


SUI 

EOD 


JRETURN (A) = 0 IF ''Z 

0A60 

C9 


RET 




0A61 

11790A 

SENDL6 

LXI 

D,WAITMG 


;TELL CONSOL WE ARE WAITING 

0A64 

CD700D 


CALL 

STRINGF 



0A67 

CD350D 

SENDOFF 

CALL 

RDRINPF 


;HOST IS SLOW - WAIT FOR XON 

0A6A 

FE11 


CPI 

XON 



0A6C 

CA530A 


JZ 

CKPUN 



0A6F 

B7 


ORA 

A 



0A70 

CA670A 


JZ 

SENDOFF 


;NOTHING RECEIVED, WAIT 

0A73 

CD9E02 


CALL 

PRNT 


;ELSE ECHO RECEIVED CHAR 

0A76 

C3670A 


JMP 

SENDOFF 


;AND CONTINUE WAITING 

0A79 

0D0A574149WAITMG 

DB 

CR,LF,'WAITING' 

,CR,LF,'$' 

0A85 

C3F309 

1 

SENDLF 

JMP 

SENDL3 


;LF CAN BE HANDLED LATER 

0A88 

111501 

SENDEOD 

LXI 

D,HCLOSE 


;CLOSE HOST FILE 

0A8B 

CD670B 


CALL 

MSGHOST 



0A8E 

Cl 


POP 

B 



0A8F 

El 


POP 

H 


;CLEAR STACK 

0A90 

C34403 


JMP 

LOCAL 



0A93 

119C0A 

f 

SENDNOT 

LXI 

D,FNFMSG 


;FILE NOT FOUND TO SEND 

0A96 

CD700D 


CALL 

STRINGF 



0A99 

C34403 


JMP 

LOCAL 



0A9C 

070D0A4649FNFMSG 

DB 

BEL,CR,LF, 

'FILE 

NOT FOUND’,CR,LF,'$' 

OABO 

1IBFOA 

WAIT 

LXI 

D,DELAYM 


;SET COUNTER FOR NUMBER 

0AB3 

CD700D 


CALL 

STRINGF 


;DELAY LOOPS 

0AB6 

CD200D 


CALL 

CONINPF 


;USE THE ASCII CODE AS INDEX 

0AB9 

32DA0A 


STA 

NDELAY 



OABC 

C34403 


JMP 

LOCAL 



OABF 

0D0A454E54DELAYM 

DB 

CR,LF,'ENTER DELAY COUNTER > $' 

OADA 

0000 

NDELAY 

/ 

DB 

0,0 





7 

; GET A 

FILE 

NAME FROM THE 

OPERATOR 



/ 

7 

STORE 

FILE NAME IN 

FCB 


OADC 

215C00 

GETFN 

LXI 

H,FCB 

7 


OADF 

AF 


XRA 

A 



OAEO 

326800 


STA 

FCB+12 


;ZERO CURRENT EXTENT 

0AE3 

327C00 


STA 

FCB+32 


;ZERO CURRENT RECORD 

0AE6 

3600 


MV I 

M,0 



0AE8 

23 


INX 

H 



0AE9 

OEOB 


MVI 

C,11 



OAEB 

3E20 


MV I 

A,' ' 



OAED 

CD7F0B 


CALL 

FILLF 


;BLANK NAME AREA 

OAFO 

11DD03 


LXI 

D,FMESS 



OAF 3 

CD700D 


CALL 

STRINGF 



0AF6 

21570B 


LXI 

H,GETFNR 



OAF 9 

OEOE 


MVI 

C,1 4 



OAFB 

3E20 


MVI 

A,' ' 



OAFD 

CD7F0B 


CALL 

FILLF 


;BLANK BUFFER AREA 
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OBOO 

11550B 

LX I 

D,GETFNRB 


0B03 

CD7B0D 

CALL 

READCNF 


0B06 

11570B 

LX I 

D,GETFNR 


0B09 

215C00 

LXI 

H,FCB 


OBOC 

13 

INX 

D 


OBOD 

1A 

LDAX 

D 


OBOE 

IB 

DCX 

D 


OBOE 

FE3A 

CPI 

1 . > 


OB1 1 

C21F0B 

JNZ 

GETNAM 


OBI 4 

1 A 

LDAX 

D 


0B1 5 

E60F 

AN I 

OFH 


OBI 7 

FE03 

CPI 

3 

;VALID DISK NUMBER? 

OB1 9 

F2DC0A 

JP 

GETFN 


OB1C 

77 

MOV 

M,A 


OB1D 

13 

INX 

D 


OB1E 

13 

INX 

D 


OB1F 

23 

GETNAM INX 

H 

;FILE NAME 

0B20 

E5 

PUSH 

H 


0B21 

0E09 

MVI 

C,9 


0B23 

1 A 

GETFNL1 LDAX 

D 


0B24 

FE2E 

CPI 

1 t 

• 


0B26 

CA3A0B 

JZ 

GETFNL1F 


0B29 

0B2B 

FE20 

C8 

CPI 

RZ 

1 1 


0B2C 

FE41 

CPI 

'A' 


0B2E 

FA330B 

JM 

GETFN3 

;IF NOT LOWER CASE 

0B31 

E65F 

AN I 

5FH 

;CONVERT TO UPPER CASE 

0B33 

77 

GETFN3 MOV 

M,A 


0B34 

13 

INX 

D 


0B35 

23 

INX 

H 


0B36 

OD 

DCR 

C 


0B37 

C2230B 

JNZ 

GETFNL1 


0B3A 

El 

GETFNL1F POP 

H 


0B3B 

010800 

LXI 

B,8 


0B3E 

09 

DAD 

B 


0B3F 

13 

INX 

D 


0B40 

0E03 

MVI 

C,3 


0B42 

1 A 

GETFNL2 LDAX 

D 

; EXTENSION 

0B43 

FE20C8 

CPI 

1 1 

RZ 


0B46 

FE41 

CPI 

'A' 


0B48 

FA4D0B 

JM 

GETFN4 

;IF NOT LOWER CASE 

0B4B 

E65F 

AN I 

5FH 


0B4D 

77 

GETFN4 MOV 

M,A 


0B4E 

1 3 

INX 

D 


0B4F 

23 

INX 

H 


0B50 

OD 

DCR 

C 


0B51 

0B54 

C2420B 

C9 

JNZ 

RET 

GETFNL2 


0B55 

1 

0E00313233GETFNRB DB 

14,0,'1234567890123456' 

0B57 


GETFNR EQU GETFNRB+2 

f 

; MSGHOST: SEND MESSAGE TO THE 
; DE POINTS TO THE MESSAGE 

HOST 

(MUST END IN A $) 

0B67 

D5 

MSGHOST PUSH 

D 


0B68 

D1 

MSGL1 POP 

D 


0B69 

1 A 

LDAX 

D 


0B6A 

13 

INX 

D 





1 
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1 

1 

0B6B FE24 


CPI 

'$• 


f 


0B6D C8 


RZ 

;END OF MESSAGE 




0B6E D5 


PUSH 

D 



1 

0B6F 5F 


MOV 

E,A 


I 


0B70 CD4E0D 


CALL 

PUNOUTF ;SEND CHAR TO HOST 




0B73 CD350D 


CALL 

RDRINPF ;HAS HOST SENT ANYTHING 

BACK? 


1 

0B76 CA680B 


JZ 

MSGL1 ;IF NOTHING RECEIVED 


1 


0B79 CD9E02 


CALL 

PRNT ;ECHO RECEIVED CHAR 



♦ 

0B7C C3680B 

/ 

JMP 

MSGL1 


1 

1 


; FILLF 

FILL MEMORY WITH CHAR 


1 



/ 

/ 

ENTRY; 

(A) CHAR TO BE FILLED 





/ 


(C) NUMBER OF LOCATIONS TO BE FILLED 



1 


J 


(HL) BEGINNING ADDRESS 


1 


0B7F 77 

FILLF 

MOV 

M,A 



1 

0B80 23 


INX 

H 


1 


0B81 OD 


DCR 

C 




0B82 C27F0B 


JNZ 

FILLF 



1 

0B85 C9 


RET 



1 

1 


f 

; DELAYF: DELAY FOR A WHILE. (A) CONTAINS COUNTER 


1 


0B86 3D 

DELAYF 

DCR 

A 



1 

0B87 C8 


RZ 



1 


0B88 C5 


PUSH 

B 




0B89 0620 


MVI 

B,20H 



1 

0B8B 05 

DELI 

DCR 

B 


1 


0B8C CA980B 


JZ 

DEL2 




0B8F 2ADA0A22DA 

LHLD 

NDELAY 



1 




SHLD NDELAY 


1 


0B95 C38B0B 


JMP 

DELI 




0B98 C1 

DEL2 

POP 

B 



1 

0B99 C3860B 

7 

JMP 

DELAYF 


1 

1 


/ 

; WRTMEMF: HANDLE WRITING A CHAR IN REGISTER A TO MEMORY 

1 



7 

AND TO DISK. 



Ifc 


7 

ASSUMES DISK FILE HAS ALREADY BEEN OPENED. 



f 


7 

IF 

(A) = EOD ( Z), DISK FILE IS CLOSED 


% 

1 


/ 

7 

RETURNS 

(A) = 0 IF SUCCESSFUL, <> 0 OTHERWISE 


1 


0B9C 2A130D 

/ 

WRTMEMF 

LHLD 

MEMADD 




0B9F 77 


MOV 

M,A 



1 

OBAO 23 


INX 

H 




0BA1 22130D 


SHLD 

MEMADD 




0BA4 FEIA 


CPI 

EOD 



1 

0BA6 CA5A0C 


JZ 

MEMCLOS ;IF END OF FILE 




0BA9 3A190D 


LDA 

MEMCNT ;MEMORY COUNT 0 .. 128 




OBAC C601 


ADI 

1 



1 

OBAE FE80 


CPI 

80H 


1 


OBBO CAB80B 


JZ 

SECFUL :IF LOGICAL SECTOR IS FULL 



0BB3 32190D 


STA 

MEMCNT 



1 

0BB6 AF 


XRA 

A ;SUCCESS 




0BB7 C9 


RET 




1 

0BB8 3A1D0D 

SECFUL 

LDA 

BFSIZE 


1 
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1 

OBBB 47 


MOV 

B,A 


1 


OBBC 3A1A0D 


LDA 

SECNT 

;LOGICAL SECTOR FULL 



OBBF C601 


ADI 

1 

;INCREMENT SECTOR COUNTER 


1 

OBC1 B8 


CMP 

B 


1 


0BC2 CA060C 


JZ 

BUFFUL 

;IF BUFFER FULL 



0BC5 321A0D 


STA 

SECNT 



1 

0BC8 AF 


XRA 

A 

;RESET CHAR COUNTER 

1 


0BC9 32190D 


STA 

MEMCNT 



1 

OBCC C9 


RET 



1 


OBCD 070D0A534FBFLMSG 

DB 

BEL,CR,LF , 

'SOURCE FILE IS TOO LARGE.' 


1 

0BE9 0D0A444553 

DB 

CR,LF,'DESTINATION FILE CLOSEDCR,LF' 

1 


0C06 CDF602 

/ 

BUFFUL 

CALL 

STOPHST 

;HOST MUST STOP SENDING 



0C09 3A1B0D 


LDA 

BFFL 

;SET BUFFER FULL FLAG 


1 

OCOC 3C 


INR 

A 


1 


OCOD 321B0D 


STA 

BFFL 




0C1 0 21 000E 


LX I 

H,OVFLBF 

;PREPARE FOR OVERFLOW 


1 

0C13 22170D 


SHLD 

OVBFAD 


1 


0C16 3E00 

GETSTRG 

MVI 

A,0 

;GET STRAGGLERS UNTIL TIMED OUT 



0C1 8 321E0D 


STA 

TIME1 



1 

OCIB 3E1F 


MVI 

A,1FH 




OCID 321F0D 


STA 

TIME2 




0C20 CD350D 

GET1 

CALL 

RDRINPF 



1 

0C23 FEOO 


CPI 

0 


1 


0C25 C23F0C 


JNZ 

GOTIT 




0C28 3A1E0D3D 


LDA 

TIMEl 



1 




DCR 

A 

1 


0C2C 321E0D 


STA 

TIMEl 




0C2F C2200C 


JNZ 

GET1 



1 

0C32 3A1F0D 


LDA 

TIME2 


1 


0C35 3D 


DCR 

A 




0C36 321F0D 


STA 

TIME 2 



1 

0C39 C2200C 


JNZ 

GET1 


1 


0C3C C35A0C 


JMP 

MEMCLOS 

;ASSUME NO MORE COMING 


1 

0C3F 2A170D 

/ 

GOTIT 

LHLD 

OVBFAD 

;PUT STRAGGLER IN OVERFLOW BUFFER, 

1 


0C42 47 


MOV 

B,A 




0C43 77 


MOV 

M,A 



1 

0C44 23 


INX 

H 

;....INCREMENT COUNTERS, 



0C45 22170D 


SHLD 

OVBFAD 




0C48 3A1C0D 


LDA 

OVCNT 



1 

0C4B 3C 


INR 

A 


f 


0C4C 321C0D 


STA 

OVCNT 




0C4F 78 


MOV 

A,B 

;....AND INSERT LINE FEEDS 


1 

0C50 FEOD 


CPI 

CR 

; AFTER CARRIAGE RETURNS. 

§■ 


0C52 C2160C 


JNZ 

GETSTRG 




0C55 3E0A 


MVI 

A,LF 



■I 

0C57 C33F0C 


JMP 

GOTIT 


1 


0C5A 3A1A0D 

7 

MEMCLOS 

LDA 

SECNT 

;WRITE MEMORY BUFFER TO DISK 

1 


0C5D 47 


MOV 

B,A 

;AND CLOSE DESTINATION FILE 



0C5E 04 


INR 

B 

;(WE COUNTED FROM 0) 



0C5F 2A150D 


LHLD 

BUFADD 

;(B) COUNTS DOWN LOGICAL SECTORS 

i 


0C62 22130D 


SHLD 

MEMADD 

;RESET ADDRESS OF MEMORY BUFFER 

f 


0C65 3E80 

MEML1 

MVI 

A, 80H 

;INCREMENT MEMADD BY 80H 



0C67 2A130D 


LHLD 

MEMADD 

;BYTES WRITTEN PER SECTOR 

I 

1 

0C6A 54 


MOV 

D,H 


§ 


0C6B 5D 


MOV 

E,L 




0C6C 83 


ADD 

E 



1 

0C6D 6F 


MOV 

L,A 


1 
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1 

0C6E D2750C 


JNC 

MEML4 



0C71 3E01 


MV I 

A,1 



0C73 82 


ADD 

D 


1 

0C74 67 


MOV 

H,A 



0C75 22130D 

MEML4 

SHLD 

MEMADD 



0C78 C5 


PUSH 

B 


♦ 

0C79 CDA40D 


CALL 

SETDMAF 



0C7C 115C00 


LX I 

D,FCB 



0C7F CD9A0D 


CALL 

WRITSQF 


1 

0C82 Cl 


POP 

B 

1 


0C83 B7 


ORA 

A 



0C84 C2ED0C 


JNZ 

MEML3 

;IF DISK FULL 

1 

0C87 05 


DCR 

B 

1 


0C88 AF 


XRA 

A 



0C89 80 


ADD 

B 


I 

0C8A C2650C 


JNZ 

MEML1 

;IF NOT ALL SECTORS ARE WRITTEN ^ 


0C8D 3A1B0D 

f 

LDA 

BFFL 

;HOW DID WE GET HERE? 

1 

0C90 FEOO 


CPI 

OOH 

1 


0C92 CAD70C 


JZ 

MEML2 

BECAUSE OF EOF 

1 

0C95 AF321B0D 


XRA 

A 

;....BECAUSE OF FULL BUFFER p 


0C99 321A0D 


STA 

SECNT 

STA BFFL ;INDICATE BUFFER NOT 

;ZERO SECTOR COUNT 


0C9C 32190D 


STA 

MEMCNT 

; AND CHAR COUNT 1 

1 

0C9F 2A150D 


LHLD 

BUFADD 

;RESET ADDRESS OF MEMORY BUFFER ^ 


0CA2 22130D 


SHLD 

MEMADD 



OCAS 3A1C0D 


LDA 

OVCNT 

;ARE THERE ANY . 

1 

0CA8 FEOO 


CPI 

0 

; OVERFLOW CHARACTERS? ^ 


OCAA CACFOC 


JZ 

HOSTGO 

;NO 


OCAD 3A1C0D 


LDA 

OVCNT 

;YES...SO MOVE THEM INTO 1 

'P 

OCBO 47 


MOV 

B,A 

; THE RECEIVER BUFFER. 


0CB1 21000E 


LX I 

H,OVFLBF 


'k. 

0CB4 EB 


XCHG 



1 

0CB5 2A130D 


LHLD 

MEMADD 

1 


0CB8 1A 

MOVE 

LDAX 

D 



0CB9 FE1A 


CPI 

EOD 


1 

OCBB CA5A0C 


JZ 

MEMCLOS 

; OOPS..END OF DATA IN OVERFLOW * 


OCBE 77 


MOV 

M,A 



OCBF 23 


INX 

H 


1 

OCCO 22130D 


SHLD 

MEMADD 



0CC3 13 


INX 

D 



0CC4 3A190D 


LDA 

MEMCNT 


i 

0CC7 3C 


INR 

A 



0CC8 32190D 


STA 

MEMCNT 



OCCB 05 


DCR 

B 


♦ 

OCCC C2B80C 


JNZ 

MOVE 



OCCF CD0803 

HOSTGO 

CALL 

STRTHST 

;TELL HOST TO START SENDING AGAIN 


0CD2 AF 


XRA 

A 


1 

0CD3 321 COD 


STA 

OVCNT 

;ZERO OVERFLOW COUNT 


0CD6 C9 


RET 




0CD7 115C00 

7 

MEML2 

LX I 

D,FCB 

;DONE WRITING. CLOSE FILE 


OCDA CD8B0D 


CALL 

CLOSEFF 


1 

OCDD AF 


XRA 

A 

;RESET ALL COUNTERS AND ADDRESSES 


OCDE 32190D 


STA 

MEMCNT 



0CE1 321A0D 


STA 

SECNT 


% 

0CE4 2A150D 


LHLD 

BUFADD 



0CE7 22130D 


SHLD 

MEMADD 



OCEA C601 


ADI 

1 

;FORCE FLAG 

1 

OCEC C9 

7 

RET 


f 
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f 


1 

OCED 11F60C 

MEML3 LXI 

D,LOSTMG ;DISK FULL 

1 


OCFO CD700D 

CALL 

STRINGF 


1 

0CF3 C3D70C 

JMP 

MEML2 


1 


0CF6 070D0A4449LOSTMG DB 

BEL,CR, 

LF,'DISK FULL. FILE CLOSEDCR,LF' 


1 

0D13 0010 

/ 

MEMADD DW 

BUFF 


1 


0D1 5 0010 

BUFADD DW 

BUFF 




0D17 OOOE 

OVBFAD DW 

OVFLBF 



1 

0D19 00 

MEMCNT DB 

0 


1 


ODIA 00 

SECNT DB 

0 




ODIB 00 

BFFL DB 

0 



1 

0D1C 00 

OVCNT DB 

0 


1 


0D1D 00 

BFSIZE DB 

OOH 

;INITIALIZED FOR 256 SECTORS 


k 

ODIE 0000 

TIME1 DB 

0 



1 


/ 

TIME2 

DB 0 

1 

1 


t 

; FUNCTION 1 : 

CONSOLE 

INPUT 

1 

1 


t 

; RETURN 

: (A) = ASCII CHARACTER 

1 


0D20 DBED 

i 

CONINPF IN 

350Q+5 



i 

0D22 E601 

ANI 

01 



f 

0D24 CA200D 

JZ 

CONINPF 


1 


0D27 DBE8 

IN 

350Q 



1 

0D29 C9 

RET 

• 



1 



r 

;CONINPF 

MVI 

C,1 


1 


; JMP 

/ 

BDOS 


1 

1 


} 

; FUNCTION 2: 

CONSOLE 

OUTPUT 

1 



/ 

; ENTRY: 

(E) = ASCII CHARACTER 


1 


/ 

;CONOUTF 

MVI 

C,2 

1 



; JMP 

BDOS 



1 

0D2A DBED 

t 

CONOUTF IN 

350Q+5 


1 


0D2C E620 

ANI 

20H 




0D2E CA2A0D 

JZ 

CONOUTF 



1 

0D31 7B 

MOV 

A,E 


1 


0D32 D3E8 

OUT 

350Q 




0D34 C9 

RET 




♦ 


/ 



1 

1 


/ 

; FUNCTION 3: 

READER INPUT 

1 



} RETURN: 

(A) = ASCII CHARACTER 


1 

0D35 DBDD 

/ 

RDRINPF IN 

330Q+5 


1 


0D37 E601 

ANI 

1 




0D39 C8 

RZ 




1 

0D3A DBD8 

IN 

330Q 


1 


0D3C E67F 

ANI 

7FH 



1 


;RDRINPF 

MVI 

C,3 

1 



; CALL 

BDOS 


1 



; ANI 

7FH 

;STRIP PARITY BIT 



0D3E C8 

RZ 




1 

0D3F FE7F 

CPI 

DEL 


1 
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1 

0D41 CA4C0D 

JZ 

IGNOR 

» 


0D44 FE07 

CPI 

BEL 



0D46 CA4C0D 

JZ 

IGNOR 


1 

0D49 FEOA 

CPI 

LF 

1 


0D4B CO 

RNZ 




0D4C AF 

IGNOR XRA 

A 


1 

0D4D C9 

RET 

/ 


1 

1 


/ 

FUNCTION 4: 

PUNCH OUTPUT 

1 

1 


f 

} ENTRY: 

(E) = ASCII CHARACTER 

1 

1 

0D4E DBDD 

r 

PUNOUTF IN 

330Q+5 

ft 

0D50 E620 

AN I 

20H 

1 


0D52 CA4E0D 

JZ 

PUNOUTF 


% 

0D55 7B 

MOV 

A,E 

Ik 

1 

0D56 D3D8 

OUT 

330Q 

f 


0D58 C9 

RET 


1 


;PUNOUTF 

MVI C,4 

1 

f 


; JMP 

BDOS 

1 


/ 

; PUNCH STATUS 

1 


0D59 DBDD 

/ 

PUNSTAT IN 

330Q+5 


'II 

0D5B E620 

AN I 

20H 

ft 

w 

0D5D C9 

RET 

} 


f 

1 


/ 

; FUNCTION 5: 

LIST OUTPUT 

1 

1 


/ 

; ENTRY; 

(E) = ASCII CHARACTER 

1 


0D5E 0E05 

1 

LSTOUTF MVI 

C,5 


1 

0D60 C30500 

JMP 

BDOS 

1 


CHECK PRINTER STATUS 


1 

0D63 DBE6 

/ 

PRTSTAT IN 

340Q+6 


1 


0D65 E610 

AN I 

1 OH 



1 

0D67 C9 

RET 

t 



1 

1 


7 

; FUNCTION 6: 

DIRECT 

CONSOLE I/O 

1 



1 

; ENTRY: 

(E) = 

OFFH FOR INPUT FROM CONSOLE 


1 



= 

ASCII CHAR FOR OUTPUT TO CONSOLE 




} RETURN 

: (A) = 

ASCII CHAR, IF ANY 




7 

= 

00 IF NO CHAR WAS ENTERED 


1 


f 

} IF 

BDOS VERSION DOES NOT SUPPORT FUNCTION 6 




JDIRCONF 

MVI 

C,11 ;GET CONSOLE STATUS 


1 


7 CALL 

BDOS 





; RZ 


;NOTHING WAITING 




; MVI 

C,1 

;CONSOLE READ (BETTER IF NO ECHO) 


1 


; CALL 

BDOS 





; ENDIF 




1 

0D68 DBED 

7 

DIRCONF IN 

350Q+5 




0D6A E601 

AN I 

1 
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1 

1 

0D6C C8 

0D6D DBE8 

0D6F C9 

RZ 

IN 

RET 

350Q 


1 


DIRCONF 

JMP 

MVI 

BDOS 

C,6 

1 


FUNCTION 9: 

PRINT 

STRING 

1 


ENTRY ; 

(DE) 

= ADDRESS OF MESSAGE 

MESSAGE MUST END WITH '$' 

1 


STRINGF 

JMP 

MVI 

BDOS 

C,9 

1 

1 

0D70 0E09 

0D72 CD0500 

0D75 F3 

0D76 AF 

0D77 D3E9 

0D79 FB 

0D7A C9 

STRINGF MVI 
CALL 

DI 

XRA 

OUT 

El 

RET 

C,9 

BDOS 

; CP/M turns console interrupts 
A ; we must turn them off again 

350Q+1 

1 


FUNCTION 10: 

READ 

CONSOLE BUFFER 

1 


ENTRY: 
RETURN: 

(DE) = BUFFER ADDRESS 
((DE )) = CONSOLE CHARACTERS 

1 


READCNF 

JMP 

MVI 

BDOS 

C,10 

1 

1 

1 

0D7B OEOA R 

0D7D CD0500 

0D80 F3 

0D81 AF 

0D82 D3E9 

0D84 FB 

0D85 C9 

EADCNF MVI 

CALL 

DI 

XRA 

OUT 

El 

RET 

C,10 

BDOS 

A 

350Q+1 

; CP/m turns the console 
; interrupts on so we must 

7 turn them off again. 


7 

! 

FUNCTION 15: 

OPEN 

FILE 

1 

/ 

/ 

7 

ENTRY: 
RETURN: 

(DE) 
(A) = 

= FCB ADDRESS 

0 - 3 IF SUCCESS, OFFH OTHERWISE 


0D86 OEOF 
0D88 C30500 


OPENFIF MVI C,15 

JMP BDOS 



; FUNCTION 16: 

CLOSE 

FILE 


/ 

7 ENTRY: 

(DE) 

= FCB 


7 RETURN: 

(A) = 

0 - 

0E1 0 

7 

CLOSEFF MVI 

C,16 


C30500 

JMP 

BDOS 



; FUNCTION 19: DELETE FILE 


so 


ENTRY: 


(DE) = FCB ADDRESS 











u 


J If buuuniyy, uffh otherwise 


I 
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C,19 

BDOS 
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FUNCTION 20: READ SEQUENTIAL 


I 


ENTRY: (DE) = FCB ADDRESS 

RETURN: (A) = 0 IF SUCCESS, ELSE NONZERO 


0D95 0E14 READSQF MVI 

0D97 C30500 jMP 


C,20 

BDOS 


FUNCTION 21: WRITE SEQUENTIAL 


I 


0D9A 0E15 
0D9C C30500 


0D9F 0E16 
0DA1 C30500 


; ENTRY: (DE) 

; RETURN: (A) 

7 

WRITSQF MVI C,21 

JMP BDOS 


FCB ADDRESS 

0 IF SUCCESS, ELSE NONZERO 


FUNCTION 22: MAKE FILE - OPEN FOR OUTPUT 
ENTRY: (DE) = FCB ADDRESS 

RETURN: (A) = 0 - 3 IF SUCCESS, ELSE OFFH 


MAKEFIF MVI C,22 

JMP BDOS 


I 

I 


I 


I 

I 


0DA4 OEIA 
0DA6 C30500 


FUNCTION 26: SET DMA ADDRESS 


ENTRY: (DE) = DMA ADDRESS 


SETDMAF MVI C,26 

JMP BDOS 


I 

0DA9 


END 


I 

I 

I 

I 


I 


I 


I 







